This sample code shows the use of the ReadingRecords Event (Report Object). Modify the following sample code to fit your needs.
Dim rpt As CRPEAuto.Report
Dim rptView As CRPEAuto.View
Dim test As Integer
Private Sub ReadingRecords_Click()
'Starts up report for report event ReadingRecords
Dim rptView As CRPEAuto.View
Dim test As Integer
On Error GoTo ErrorHandler
Set repEvs = crsApp.OpenReport("c:\crw\reports\xtreme\www.sales.rpt")
test = MsgBox("Event default: Enabled = " & _
repEvs.EventInfo.ReadingRecordEventEnabled & Chr(13) & _
Chr(13) & "Disable event?", vbYesNo)
If test = vbYes Then
repEvs.EventInfo.ReadingRecordEventEnabled = False
MsgBox "Check event does not occur when report is reading records"
Else
repEvs.EventInfo.ReadingRecordEventEnabled = True
MsgBox "Check event occurs when report is reading records"
End If
Set rptView = repEvs.Preview
rptView.Close
Exit Sub ' Exit to avoid handler.
ErrorHandler:
If crsApp.LastErrorCode <> 0 Then
MsgBox "Unexpected application error: " & crsApp.LastErrorCode & _
"->" & crsApp.LastErrorString
End If
If repEvs.LastErrorCode <> 0 Then
MsgBox "Unexpected application error: " & repEvs.LastErrorCode & _
"->" & repEvs.LastErrorString
End If
If Err.Number <> 0 Then
MsgBox "Unexpected VB error: " & Err.Number & "->" & Err.Description
End If
Call ResetErr
repEvs.ClearError
Resume Next
End Sub
Private Sub repEvs_ReadingRecords(ByVal RecordsRead As Long, _
ByVal RecordsSelected As Long, ByVal Cancelled As Boolean, _
ByVal done As Boolean)
'executed when crpe is reading records - reading occurs at random intervals,
'so different number of events may occur each time a report runs
MsgBox "Report ReadingRecords event" & Chr(13) & Chr(13) & _
"Parameters:" & Chr(13) & "RecordsRead: " & RecordsRead & _
Chr(13) & "RecordsSelected: " & RecordsSelected & Chr(13) & _
"Cancelled: " & Cancelled & Chr(13) & "Done: " & done
End Sub
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |